EXHIBIT -A 
DRAWINGS AS AMENDED 
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'COMMAND LOAD, 
OUT 236,128: OUT 


RUN-BAR 
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100 PRINT: PRINT: PRINT "PILE: GRAPH. ASC 
110 CLEAR 

ON 4 VERT.SYNC-l * S%BR% U XP S%=1 THEN 1940 'LOCKUP 

}«2 SSm 1 ??*^? 6 ^ S% 7 R% m 16: IF S%e0 THEN 194 0 ' CHECK FIELD 
til? 2S T T?i 6 '^L 4 . INITIALIZE GRAPHICS GENERATOR 

1992 R%=INP (236) : S%=R% AND 1 

1993 IF S%=0 THEN 1992 'LOCKUP ON VERT. SYNC =0 

1994 OUT 236,0 

1995 OUT 238, 246: OUT 2- 
'X-ROW MSH 

1996 OUT 238, 247: OUT 2\ 
'X-ROW LSH 

1997 OUT 238,242: OUT 23" 
'X-PIXEL SLOPE MSH 

1998 OUT 238,245: OUT 23' 
'Y-PIXEL SLOPE MSH 

1999 OUT 238,248: OUT 23' 
' X-ROW SLOPE MSH 

2000 OUT 238,251: OUT 23 
'Y-ROW SLOPE MSH 

2001 OUT 238,244: OUT 23 
'Y-PIXEL SLOPE LSH . 

2002 OUT 238,240: OUT 23 
'X-ROW SLOPE LSH 

2003 OUT 238,243: OUT 237, 255: OUT 236,128: OUT 236,0 
' X-PIXEL SLOPE LSH 

2004 OUT 238,241: OUT 237, 255: OUT 236,128: OUT 236,0 
Y-ROW SLOPE LSH 

.2005 OUT 236,80 'COMMAND RUN, LOAD-^BAR ;PULSE-1 BRACKETING 
COMPUTATION PERIOD 

.2006 R%=INP (236): S%=R% AND 1: IF S%=1 THEN 2006 'LOCKUP 
ON VERT. SYNC =1 

2007 R%=INP (236): S%=R% AND 16: IF S%=0 THEN 2006 'CHECK FIELD 
2060 ' ITERATIVE PROCESSING 
2100 OUT 236,64 
. 2140 1 RESYNCHRONIZATION AND FIELD CONTROL PROCESSOR 
2220 R%=INP (236): S%=R% AND 1 

2300 IF S%=0 THEN 2220 'LOCKUP ON VERT.SYNC=0 

3060 ' INTERLACED SCAN CALCULATIONS 

3100 ' INPUT BYTE 128 064 032 016 008 004 002 001 

3140 ' F2 . Fl LS FS 

3180 OUT 236,0 'COMMAND LOAD, RUN-BAR 

3220 R%=INP (236): S%=R% AND 16: IF S%=0 THEN 3540 ELSE 3260 
'CHECK FIELD 

3260 'FIELD- 2 

3300 'OUTPUT POSITION PARAMETERS 

3340 OUT 238, 249: OUT 237, 0: OUT 236,128: OUT 236,0 

'Y-ROW MSH 

3380 OUT 238, 250: OUT 237, 4: OUT 236,128: OUT 236,0 

•Y-HOW LSH 

3500 GOTO 4140 
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3540 ' FIELD- 1 

3580 'OUTPUT POSITION PARAMETERS 

•Y-ROW MSB 238 ' ° DT 23?f ° ! ° 0T 236 ' 128s 0DT 236,0 

•Y-SoW LSH 25 ° S ° DT 23? ' ° S ° DT 236 ' 128j OUT 236,0 

£&»AT?£ PERIOD ' C0MMAND RUNf »WLW-1 BRACKETING 

20000 END° 2060 ' L0 ° P BACK P0R m ™ PIELD 
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50 PRINT "ACCESSED "LD" PILE TO LOAD IMAGE mfmmv. 

REV. 5/15/84 09:00" MEMORY: 



55 
100 
112 
114 
116 
118 
120 
122 
124 
126 
128 
130 
132 
134 
136 
138 
140 
141 
142 
151 



NUMBER" ; A2 0 % 
152 
153 
PRINT 



INPUT "MURPHY (M) OR CAM ILLS (C)"|K200$ 
INT1%=0: D%=0: K8%=1: K9%=1 

PRINT: PRINT "*************************************^v**n 
" SELECT OPERATION" 

"******************** ic1tit1c1l1l1l1 , ic1lil1l1t1t1[il1c1tie1e « . print 

RETURN TO OPERATING SYSTEM * 0 n 

.2552 0VERLAY VOR LOADING INTO IMAGE* MEMORY* '. * * 1« 
" SELECT IMAGE TO BE LOADED INTO IMAGE MEMORY" 

CONCENTRIC SQUARE FRAMES 2 » 

RECTANGLES AND LINES tn 

SPIRALS \ * J„ 

VIEWPORT COORDINATE SYMBOLS * * ! ! * 5 « 

PATTERN #6 % 

PATTERN #7 % 

. SQUARE PATTERN gw 

SQUARE FRAMES q» 

PERIPHERAL SQUARES in" 

PERIPHERAL TRIANGLES 1 1 « 

house ..I..*****!**** 12"* 

SELECT OPERATION 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 



'j PRINT "IMPROPER SELECTION" ! 



154 
155 
156 
158 
9000, 
159 
170 
171 
172 
173 
174 
180 
200 
220 
240 
260 
265 
270 
400 
420 
440 
442 
443 
460 
480 
482 
484 



IF A20%<13 THEN 155 
PRINT n ****************n, 
n ***************n 
GOTO 112 

IF A20%>0 THEN 158 

SYSTEM 

905S,ir 8 O? O ^o"°il07O 00 ' 4 " 0 ' 550 °' 45 ™' 750 °' 85 °°' 
GOTO 112 

PRINT: PRINT "****************************************** 

^SELECT OVERLAY FOR LOADING INTO IMAGE MEMORY- 
PRINT p RINT 

RETURN TO MAIN MENU * J™ 

SELECT RECTANGULAR IMAGE MEMORY PATTERN" <■ 
HORIZONTAL BARS" 

3- 2-2 WIDTH BARS, INTENSITY VARATIONS 
1-1-1 WIDTH BARS, MAXIMUM INTENSITY ., 
LINEAR COUNT, ALL COLOR COMBINATIONS . 

SOLID SINGLE COLORED IMAGES" 

RECTANGLE on 

BACKGROUND ** 411 

CHECKERBOARD" 

4- COLORS 6 i 



PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
. PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
NUMBER" ;A5% 
486 IF A5%>0 THEN 502 



It 
If 
ft 
II 
If 
If 
It 
It 
II 
ft 
ft 
It 



1" 
2" 
8" 



2-COLORS 7 n 

VARIABLE SINGLE COLORS" ** 

GREEN SAWTOOTH i 0 n 

CENTER ELEMENT" 

9 -PIXEL SQUARE iin 

SELECT SLOPING LINE I!!!*12*. 

SELECT PATTERN 
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500 RETURN 
502 IP A5%<13 THEN 520 

print ..ssi.::::::™"""' mim ■mcm*-, 

504 GOTO 170 

I5S H^ 5% ; 3 0R A5%s4 0R A5%=12 THEN 523 ELSE 535 

523 PRINT "COLOR CODE" 

524 PRINT " BLACK 0" 

526 PRINT " GREEN 1 TO 7" 

527 PRINT " . RED fi. 16 24" 

528 PRINT - BLUE .1 32 IV, |«- 

529 iNPtiT n 

CODE SUM";INT1% SELECT COLOR 

530 IP INT1%<128 THEN 535 

531 PRINTjPRINT "*************************************« 

532 PRINT "IMPROPER COLOR CODE; ENTER COLOR CODE AGAIN" 

533 PRINT "***************************^^**mS*JKJ;. W _ 

534 GOTO 523 ♦Fkj.hi 

535 IP A5%»11 THEN 2040 

540 IP A5%=6 OR A5%=7 GOTO 560 ELSE 570 

ot£« «ca INPUT "CHECKERBOARD RESOLUTION, PIXELS PER 

olUE ;Ao% ;, s .,! 

57.0 IP A5%=4 THEN 575 ELSE 580 

HI txtt>„™, n A5%=3: XB% B 0s YB%=0: XE%=511: YB%«511» GOTO 623 

580 INPUT " START PIXEL COORD IN ATE"; XB%,YB% 

620 INPUT " STOP PIXEL COORDINATE" ; XE% , YE% 

623 GOSUB .630 

624 GOTO 170 

630 *************************************************** 

632 ' SUBROUTINE TO OVERLAY A RECTANGLE 
£35 XB%=(XB%+1)*8: YB%= (YB%+1) *8 

£}£, XE%*(XE%+1)*8: YE%=(YE%+1)*8 

to* J B ,!T t > 5, AND XB%<XE% AND XE%=>8 AND .XB%=<512*8 AND 

XE%=<512*8 THEN 643 ELSE 656 

IF YB%=>8 AND YB%<YE% AND YE%=>8 AND YB%=<512*8 AND 
YE%-<512*8 THEN 660 ELSE 656 

656' PRINT : PRINT "**************************************» 

COORDINaJe^AgI'iS^ 0 ™ PIXEL C00RDINATES ' ™™* PIXEL 

658' PRINT "***************************************». PRTKin , 

659' GOTO 580 • print 

660' PRINT: PRINT "**************************************** 

S!L',n «J$l m " IMAGE "EMORY IS BEING LOADED" 'PRINT 

"ROW" , "COLOR INTENSITY" 

666' PRINT "**********************************************„. PRTTa m 
667 IP A5%*12 THEN 4200 * FKIWT 

690 XPS%=256: YPS%=0: XRP%«XB%-8 

695 GOSUB 3000 

700 FOR OUTLPl%=YB% TO YE% STEP 8 'ROW LOOP 

710 YRP%=OUTLPl%-8 • UPDATE TO NEXT ROW 

711 XRP%=XB%-8 

712 GOSUB 3000 'LOAD IMP REGISTERS 

?ELH£:2 2 ' SET SEQUENTIAL LOAD COMMAND 

1230 DETERMINE INTENSITY (INT1%) 

1240 ON A5% GOTO 
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1260, 1460, 1720 r 1250, 1250, 1920, 1980,1800, 1250,1820 



1250 
PRINT 
1260 
1280 
1300 
1320 
1340 
1360 
1380 
1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 
1660 
1680 
1700 
1720 
COLOR 



PRINT "SELECT A DIFFERENT IMAGE": 

' IMAGE PATTERN 1 
' 1-64-32-1-16-08-1-04-02-01-1 
I BLUE J RED I GREEN 1 



PRINT "*************n, 
n ************n 

IF D%<8 THEN 1340 
IF D%<32 THEN 1380 
IF D%<128 THEN 1420 
INT1%=0: D%«0: GOTO 1980 
INT1%«D% AND. 7 

D%=D%+1: GOTO 1980 
INT1%=D% AND 24 

D%=D%+8: GOTO 1980 
INT1%=D% AND 96 

D%=D%+32: GOTO 1980 
A3%=FIX ((ODTLPl%-8)/8) 
GOSDB 1520 
GOTO 1980 

'***** SUBROUTINE, MAXIMUM COLOR ******************** 
A4%=A3% AND 3 
A7%=A4%+1 

ON A7% GOTO 1600,1620,1640,1660 

INT1%=0: GOTO 1680 

INT1%=7: GOTO 1680 

INT1%=24: GOTO 1680 

INT1%=96 

RETURN 

'****************************i tici , it1t1t1t1l1eif1l1 , 1l1l1c1tit1 , 1e1ti(1til1t1i1iii1t 

INT1%=INT1%: GOTO 1980 'PATTERN-3, SOLID 



IMAGE PATTERN 2 



* 800 K2%= (OUTLPl%-8)/8: 

PATTERN 8, LINEAR COUNT 



INT1%= K2% AND 127: GOTO 1980 



1820 
1840 
1860 
1880 
1900 

COUNT DIRECTION 
1920 
1940 
1960 



INT1%=K8%: K10%*K9% AND 1 
IF K10%=0 THEN 1920 
K8%=K8%+1 
IF K8%<8 THEN 1980 
K9%=K9%+1: K8%=6: 



GOTO 1980 



'UPCOUNT, ADD 

'CHANGE 



'DOWNCOUNT, SUBT 



K8%=K8%~1 
IF K8%>0 THEN 1980 

K9%=K9%+1: K8%=2: GOTO 1980 
'CHANGE COUNT DIRECTION 

1980 SP1%«INIT1% AND 1: SP2%= INIT1% AND 3: SP3%=INT1% AND 7- 
™E3t1% aSS i! 7 SP5%=INT1% ™ 31J SP6%=INT1% Sd™" 7 ' 

lill ™°L? 38 ' 252 : 0UT 237 ' SP1%t O0T 237 ' SP2%: OUT 237, 
^*^? DT t^ 7 ; 8 ?iJi ° DT 237 ' SP5 *' OUT 237,SP6%: OUT 237, SP7%: 
OUT 237, INT1% 'DATA TO LOAD IN IMAGE MEMORY 

1991 ON A5% GOTO 

199.4,1994,1994,1994,1994,1992,1993,1994,1994,1994 

1992 A3%=FIX((2*0UTLP1%+INLP1%)/A6%) : GOSUB 1520: GOTO 1994 
A3%»FIX((2*0UTLP1%+2*INLP1%)/A6%): GOSUB 1520: GOTO 1994 
FOR INLP1%=XB% TO XE% STEP 8 'PIXEL LOOP 
OUT 236,160: OUT 236,32 
NEXT INLP1% 

,2 D «? 3 3;,! P7 S^ m °^ 237 ' SP6%: 00T 237 ' sp 5%: OUT 237, 



1993 
1994 
1995 
1996 
1997 



SP4%: OUT 237,SP3%: OUT 237,SP2%: OUT 237, SPl%,OUT 237,0 
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•DATA TO LOAD IN IMAGE MEMORY 

1999 IF K200$*"M" THEN 

'OPERXTOr'rbSBT <93) ' i8% - M% 2 = " i8 "° T «N 2009 

?J5i (92)! GOTO 2006 

wmw nSS U " M% " A8 » W,D 21 IP A8, -° raiM 2009 

2003 A8%=INP (0) 

Innn A9%=A8% XOR 155: IF A9%=0 THEN 100 'ESCAPE TO mpwh 

"eLte to s5SHi M X0R 127! » 2008 «?Soof ^ 

2008 SYSTEM 

2009 NEXT ODTLPl% 

lion' ™SL CHR$(7)? sPRINT "MEMORY LOAD COMPLETE" 

2S4S ?SSwil 'RETURN TO OVERLAY MEND 

lain I™ 1 ™!; ?17%= (256-3) *8: K18%= (256+3) *8 

js: Fo Su? D sit % ^ 7% to Ki8% step 8 . Y . R0W MSH 

a"? OUT SSFgr 1 *" 7 ^ ° DT 23 ^« w J" "6,129: OUT 236,1 

a"S out ^^i I 7 NLP1%/64,s ° DT 237 ^2row°Sh 236 ' 1298 ° 0T M6 ' 1 

aaso out ?3^52 % m 63: 0DT 237 '.£! : 0DT 236 ' 129 ' °« 236 '1 

2300 OUT^^NtIL OUT 236,129: ODT 38?!*° ^ IN ^ ""^ 

2320 NEXT INLP1% «»rJ. 

2340 NEXT OOTLP1% 

•2360 OUTLPl%« (256-5) *8 

2380 OUT 238, 249 'Y-ROW MSH 

UK 6ot 2? I 2r wit ' <4 » ! 001 23 ?i4oii ffi 236 - 129! 00T 236 - 1 

lilt "S^S^-g? 10 Kl8 » 8 ™ 8 . X . R0W ^ «™ 

1"S O0I ^Iir" 4 ' 64 ' ! 001 237 : X ML 236 ' 12S! 001 236 ' x 

MM OUT fit*™* 63i 0DT 237 '.£!i,° DI 236 ' 129! 0DT 2 "'l 

2600 OOT 237^ IHT1%1 OOT 236*129: OOT 236*1 IMAGE MEMORY . 

2620 NEXT INLP1% ' 

2640 GOTO 2000 

3000 *************** SUBROUTINE TO OUTPUT POSITION AND SLOPP PiRAMFT* 

252? ! SLOPE SCALE FACTOR«=256*PIXELS/STEP 

3003 POSITION SCALE FACTOR =8*PIXELS 

3004 XPSM%«FIX(XPS%/64): XPSL%«XPS% AND 63 

•X^llXEL SLO?S T M iH 8 ' 242! ° DT 23? > XPSM%S 00T 236 ^28: OUT 236,0 

"3006 OUT 238,243: OUT 237,XPSL%: OUT 236,128: ODT 236,0 
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'X-PiXEL SLOPE LSH 

3007 YPSM%=PIX(YPS%/64): YPSL%«YPS% AND 63 

•Y^IXEL SLO^MSH 8 ' 2455 ^ 237 ' YPSM * ! ™ "6,128: OUT 236,0 

'Y-SlXEL SLO^LSH 8 ' 244 - °" 237 -»"« 236.128. OUT 236,0 

3010' OUT 236, 0 'SUBROUTINE ENTRY POINT 

3020 XRPM%=FIX(XRP%/64): XRPL%=XRP% AND 63 

•Y-ROW MSH (SSlSE'SSl 23? ' YRPM%: °° T 236 ' 128 > °° T 236 '° 

/2 U LH?' 2 !£; ° DT 237 'Y** 1 -*: OUT 236,128: OUT 236,0 

OUT 238,246: OUT 237,XRPM%: OUT 236,128: OUT 236,0 
(X"" PIXEL MSH) ■ 

iS°StS!'?J2? O0T 237 ' xm *%* OUT 236,128: OUT 236,0 
IX— PIXEL LSH) 

RETURN 

1 DRAW A LINE 
DX=XB%-XB%: DY=YE%-YB% 
DTG=0 

IP DX=0 AND DY=0 THEN 4228 
IP ABS (DX) >ABS (DY) THEN 4227 
_ (DY*256) /ABS (DY) : XPS%= (DX*256) /ABS (DY) : 

DTG=ABS (DY) : GOTO 4228 

DTG=ABS(Dxf %S(DY * 256)/ABS(DX) ' XPS%= (DX*256) /ABS (DX) : 
4228 XRP%=XB%-8: YRP%=YB%-8 
4255 GOSUB 3000 
4270 OUT 238, 252: OUT 237, 
IMAGE MEMORY 



-3096 
' Y-ROW LSH 
3097 

'-X-ROW MSH 
3098 

'X-ROW LSH 
3690 
4200 
4210 
4220 
4221 
4222 
4224 
4226 



4273 
4274 
4276 
4287 
4288 
4290 
4300 
4305 
4350 
4400 
4410 
4420 
4435 
4437 
4440 
4470 
4480 



INT1% 'DATA TO LOAD IN 

' SET SEQUENTIAL LOAD COMMAND 



' PIXEL LOOP 



OUT 236,32 
DTG=DTG+8 

IP DTG>8 THEN 4288 

OUT 236,160: OUT 236,32: GOTO 4305 
POR INLP1=8 TO DTG STEP 8 
OUT 236,160: OUT 236,32 
NEXT INLP1 

™, 236f0 'RESET SEQUENTIAL LOAD COMMAND 

RETURN 

**************************************************** 

INIT1%=7: XB%=225: YB%=255: YPS%=0: XPS%=256 
POR 0UTLP1%«=1 TO 10 



XRP%=XB%: YRP%=YB% 
XB%=XB%-1: YB%=YB%+1 
DX=2*0UTLP1%+1 
GOSUB 3000 

OUT 238, 252: OUT 237, INT1% 
IMAGE MEMORY 
4484 OUT 236,32 
4488 POR INLP1=8 TO DX STEP 8 

4492 OUT 236,160: OUT 236,32 

4493 NEXT INLP1 



'DATA TO LOAD IN 



•SET SEQUENTIAL LOAD COMMAND 
'PIXEL LOOP 
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XB%=0: 


YB%=0: 


XE%=511: 


YE%=511: 


XB%=0: 


YB%=0: 


XE%=0: 


YE%=511: 


XB%=0: 


YB%=0: 


XE%=511: 


YE%=0: 


XB%=252: 


YB%*252: 


XE%=258: 


YE%«258: 


XB%=250: 


YB%=250: 


XE%=260: 


YE%*260: 


~XB%=0: 


YB%=0: 


XE%=10: 


YE%*10; 



WW Stot&i, ,reset m» cohmabd 

4497 RETURN 

4500 ***************************************************** 

15 IS. ' BLACK BACKGROUND WITH COORDINATE SYMBOLS 
4520' A5%=3: INT1%=0: 
GOSDB 630 

4522 A5%*12: INT1%=3: 
GOSDB 630 

4523 A5%=12: INT1%=3: 
GOSUB 630 

4524 A5%=3: INT1%*3: 
GOSUB 630 

4525 A5%=3: INTl%*3.: 
GOSUB 630 

4526 A5%=3: INT1%=3: 
GOSUB 630 

4527 RETURN 

4530 ****************************************************** 

4531 ' RECTANGLE AND LINE PATTERN 

i£JS„ c ™ 5%=3: INT1%=2 4t XB%=100: YB%=400: XE%=200: YE%*500: 

GOSUB 630 

GOSUB 630 5%=1 "" XB%=400: YB%=100:. XE%=500: YE%=200: 

GOSUB 630 5%=10 * V XB%=100: YB%=100: XE%=200: YE%=200: 

GOSUB e30 5%=12: INT1%=24: XB%=0: YB%=0: XE%=511: YE%=511s 
GOSUB 630 5%=12t INT1%=24: XB%=0: YB%=511: XE%=511s YE%=0: 
4561 RETURN 

5500 '**************************************************** 
5510 ' SPIRAL LINES 

"35 A5%*12: INT1%=24: XB%=0: YB%=0: XE%*10000: 
YE%«200: GOSUB 630 

5ll° 9 fto A5% ^iiw- I 25i % " 96 * XB%5s0s YB% B 511: XE%«30000: 
YE% a 200.: • GOSUB 630 

5561. RETURN 

6500 ' *************************************************** 

SSoS» «5 5% " 3 ' INT1%s96j XB%=6; YB%*0: XE%-511: YE%«511 

GOSUB 630 

2£iL'«A 5 *' 3t I NT1%=24: XB%=100: YB%«500: XE%«200: YE%*400 

GOSUB 630 

GOSUB 630 5%tSlS XB%=500: YB%=100: XE%=400: YE%=200 

*,« 5%iSl0: XB%=100: YB%=100: XE%«200: YE%=200 

GOSUB 630 

6561 RETURN 

7500 **************************************************** 

JX!2» c,a 5%=3: INT1%B 96! XB%=0: YB%=0: XE%=511: YE%=511; 
GOSUB 630 

III?, *,a 5%=3: INT1%=24: XB%=100: YB%=500: XE%=200: YE%=400: 
GOSUB 630 

ZJSL «n 5%=12: INT1%b24 « XB% s 0: YB%=0: XE%«511: YE%=511: 
GOSUB 630 
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YB%=511: XE%=511: YE%=0: 



XE%=511: YE%=511: 
XE%=200: YE%=400: 
XE%=511: YE%»511; 



7540 A5%=12: INT1%=24: XB%=0: 
GOSUB 630 

7550 A5%=1: XB%=500: YB%=100: XE%=400: YE%=200: 
GOSUB 630 

7560 A5%=10: XB%=100: YB%=100: XE%=200: YE%=200: 
GOSUB 630 

7561 RETURN 

8500 '*************************************************** 

8520 A5%=3: INT1%=96: XB%=0: YB%=0: 
GOSUB 630 

8530 A5%=3: INT1%=24: XB%=100: YB%=500: 
GOSUB 630 

8535 A5%=12: INT1%=24: XB%=0: YB%=0: 

GOSUB 630 ... 

8540 A5%=12: INT1%=24: XB%=0: YB%*511: XE%=511: YE%*0: 

GOSUB 630 

8550 A5%=1: XB%=500: YB%=100: XE%=400: YE%=200: 

GOSUB 630 

8560 A5%=10: XB«=100: YB%=100: XE%=200: YE%=200: 
GOSUB 630 

8561 RETURN 

9000 ******************************************************** 

9001 A5%=3: INT1%=7: XB%=128: YB%=128: XE%=256: YE%=256 
GOSUB 630 

9010 A5%=3: INT1%=16: XB%=256: YB%=128: XE%=384: YE%=256 
GOSUB 630 

9020 A5%=3: INT1%«96: XB%=256: YB%=256: XE%=384: YE%=384 
GOSUB 630 

9030 A5%=3: INT1%=24: XB%=128: YB%=256: XE%=256: YE%=386 
GOSUB 630 

9031 RETURN 

9032 ' ******************************************************** 
9040 A5%=3: INT1%=32: XB%=0: YB%=0: XE%=511: YE%=511: 
GOSUB .630 

9050 A5%=3: INT1%=7: 
GOSUB 630 

9060 A5%=3: INT1%=7: 
GOSUB 630 

9070 A5%=3: INT1%=7: 
GOSUB 630 

9080 A5%=3: INT1%=7: 
GOSUB 630 

9090 A5%=3: INT1%=24: XB%=150: YB%=150 
GOSUB 630 
9100 A5%=3: 
GOSUB 630 

9110 A5%=3: INT1%=24: XB%=150: YB%=338 
GOSUB 630 

9120 A5%=3: INT1%=24: XB%=338: YB%=150 
GOSUB 630 

9130 A5%=3: INT1%=96: XB%=196: YB%=196 
GOSUB 630 

9140 A5%=3: INT1%=96: XB%«=196: YB%=196 
GOSUB 630 

9150 A5%=3: INTl%=96: XB%=196: YB%=292 



XB%=104: YB%=104 

XB%=104: YB%=104 

XB%=104: YB%=384 

XB%*384: YB%=104 



INT1%=24: XB%=150: YB%=150 



XE%=127: YE%=407: 

XE%=407: YE%=127: 

XE%=407j YE%=407: 

XE%=407: YE%=407: 

XE%*173: YE%=361: 

XE%=361: YE%=173: 

XE%=361: YE%=361: 

XE%=361: YE%=36.1: 

XE%=219: YE%=315: 

XE%=315: YE%=219: 

XE%=315: YE%=315 
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GOSUB 630 

9160 A5%=3: INT1%=96: XB%=292: YB%=196: XE%=315: YE%=315» 
GOSUB 630 

9170 , A5%»3: INT1%=7: XB%=242: YB%=242: XE%=269: YE%*269: 
GOSDB 630 

9171 RETURN 

9172 ******************** ************************************* 

GOSUB 630 5%=3S INT1%!s96s XB%s0s YB%=0: XE%=511: YE%=511: 

£ ,i 5%sls XB%=96: YB%=96: XE%=159: YE%=159: 
GOSUB 630 

9200 A5%=1: XB%=352: YB%=352: XE%=415: YE%=415: 
GOSUB 630 

9210 A5%=10: XB%=96: YB%=352: XE%=159: YE%=415: 
GOSUB 630 

9220 A5%=10: XB%=352: YB%=96: XE%=415: YE%=159: 
GOSUB 630 

9230 A5%~3: INT1%=24: XB%=224: YB%=224: XE%=287: YE%=287: 
GOSUB 630 

9240 A5%=12: INT1%=7: XB%=159: YB%=159: XE%=224: YE%=224: 
GOSUB 630 

9250 A5%=12: INT1%=7: XB%=287: YB%=287: XE%=352: YE%=352: 
GOSUB 630 

9260. A5%=12: INT1%=7: XB%=159; YB%*352: XE%*224: YE%*287: 
GOSUB 630 

9270 A5%=12: INT1%=7: XB%=287: YB%=224: XE%*352: YB%=159: 
GOSUB 630 

9271 RETURN 

9272 ********************************************************* 

9280 A5%=3: INT1%=96: XB%=0: YB%=0: XE%=511: YE%=511 
GOSUB 630 

9300 A5%=12: INT1%=7: XB%=5: YB%=6: XE%=252: YE%=253 
GOSUB 630 

9310 A5%=12: INT1%=7: XB%=259: YB%=260: XE%=506: YE%=507 
GOSUB 630 

9320 A5%=12: INT1%=7: XB%=5: YB%=507: XE%=252: YE%=260 
GOSUB 630 

9330 A5%=12: INT1%=7: XB%=259: YB%=253: XE%=506: YE%=6: 
GOSUB 630 

9340 A5%=12: INT1%=96: XB%=5: YB%=5: XE%=252: YE%=252: 
GOSUB 630 

9350 A5%=12: INT1%=96: XB%=259: YB%=259: XE%=506: YE%=506: 
GOSUB 630 

9360 A5%=12: INT1%=96: XB%=5: YB%=506: XE%=252: YE%=259: 
GOSUB 630 

9370 A5%=12: INT1%=96: XB%=259: YB%»252: XE%=506: YE%=5: 
GOSUB 630 

9380 A5%=12: INT1%=24: XB%=5: YB%=4: XE%=252: YE%=251: 
GOSUB 630 

9390 A5%=12: INT1%=24: XB%=259: YB%=258: XE%=506: YE%=505: 
GOSUB 630 

9400 A5%=12: INT1%=24: XB%=5: YB%=505: XE%=252: YE%=258: 
GOSUB 630 

9410 A5%=12: INT1%=24: XB%=259: YB%=251: XE%=506: YE%=4: 
GOSUB 630 
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GOSDB 
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GOSDB 
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GOSDB 
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GOSDB 
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iiD * — O • 
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iiNr± : s=y b : 


XB%=1: 


GOSDB 
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INT1%=96 : 


XB%=1; 




63fl 








a C 9- - ^ • 
AD tB — o t 


INT1%=96 ; 


XB%=510: 


GO<3T1B 






QAQO 




INT1%"96 : 


XB%»1: 


VtVJDUJD 










Ad%=3 : 


INT1%=24: 


XB%=2; 










A5%-3 : 


INT1%=24: 


XB%=2: 


GUoUtt 








9520 


A5%=3: 


INT1%=24: 


XB%=509: 
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9530 


A5%=3: 


INT1%=24: 


XB%=2: 


GO SUB 


£ O A 

630 






APIA 

9540 


A5%=3: 


INT1%=7: 


XB%=3: 


GOSUB 


630 






9550 


A5%=3: 


INT1%=7: 


XB%=3: 


GOSUB 


630 






9560 


A5%=3 : 


INT1%=7: 


XB%=508: 


GOSUB 


£ O A 

630 






ACTA 

9 S>7U 


A5%=3 : 


INT1%=7: 


XB%=3: 


vjUouo 


ooU 






QCQA 


A5% = 3 : 


INT1%=96 : 


XB%=4: . 


VjrV^O UD 


OjU 






QCQA 


AD«=3 : 


INT1%=96 : 


XB%=4 : 


GOSTIB 


630 

U O V 
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AD 6 — O I 


T XT 111 1 Q. A . 


XB%=507 : 


GOSDB 


630 

V J V 






9610 


I\ u ? • J « 




XB«=4 : 


GOSDB 


630 






9620 


AS%=3 • 






GOSDB 


630 






9630 


A5%-3 • 






GOSDB 


630 






9640 


A5%=3: 




ad * — 0 \) 0 S 


GOSDB 


630 






9650 


A5%=3: 


INT1%=24: 


XB%=5: 


GOSUB 


630 






9660 


A5%=12 


: INT1%=7: 


XB%=192: 


GOSDB 


630 






9670 


A5%=12 


: INT1%=96: 


XB%=193: 


GOSDB 


630 






9680 


A5%=12 


: INT1%.=24: 


XB%=194: 


GOSDB 


630 




9690 


A5%=12 


: INT1%=7: 


XB%=200: 



YB%=0 : 

YB%=0: 

YB%=0: 

YB%=511: 

YB%=1: 

YB%=1: 

YB%=1: 

YB%=510: 

YB%=2: 

YB%=2: 

YB%=2: 

YB%=509: 

XB%=3: 

YB%=3: 

YB%=3: 

YB%=508: 

YB%=4: 

YB%=4: 

YB%=4: 

YB%=507: 

YB%=5: 

YB%=5: 

YB%=5: 

YB%=506: 

YB%=128: 

YB%=129: 

YB%=130: 

YB%=136: 



XE%=511: 

XE%=0: 

XE%=511: 

XE%=511: 

XE%=510: 

XE%=1: 

XE%=510: 

XE%=510: 

XE%=509: 

XE%=2: 

XE%=509: 

XE%«509: 

XE%*508: 

XE%=3: 

XE%=508: 

XE%=508: 

XE%=507: 

XE%=4: 

XE%=507: 

XE%=507: 

XE%*506: 

XE%=5: 

XE%=506: 

XE%=506: 

XE%=319: 

XE%=318: 

XE%=317: 

XE%=311: 



YE%=0: 

YE%=511: 

YE%=511: 

YE%=511: 

YE%=1: 

YE%=510: 

YE%=510: 

YE%=510: 

YE%=2: 

YE%=509: 

YE%=509s 

YE%=509: 

YE%=3: 

YE%»508: 

YE%=508: 

YE%=508: 

YE%=4: 

YE%=507: 

YE%=507: 

YE%=507: 

YE%=5: 

YE%=506 

YE%=506 

YE%=506 

YE%=128 

YE%=129 

YE%=130 

YE%=136 
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GOSDB 630 

9700 A5%=12: INT1%=96: XB%=201: YB%=137: XE%=310; YE%=137: 
GOSOB 630 

9710 A5%=12: INT1%=24: XB%=202: YB%=138: XE%=309: YE%=138: 
GOSOB 630 

9720 A5%=12: INT1%=7: XB%=208: YB%=144: XE%=303: YE%=144: 
GOSOB 630 

9730 A5%=12: INT1%=96: XB%=209: YB%=145: XE%=302: YE%=145: 
GOSOB 630 

9740 A5%=12: INT1%=24: XB%=210: YB%=146: XE%=301: YE%=146- 
GOSOB 630 

9750 A5%=12: INT1%=7 : XB%*216: YB%=152: XE%=295: YE%=152: 
GOSDB 630 

9760 A5%*12j INT1%=96: XB%*217: YB%=153: XE%=294: YE%=153: 
GOSOB 630 

9770 A5%=12: INT1%=24: XB%=218: YB%=154: XE%«293: YE%=154; 
GOSOB 630 

9780 A5%=12: INT1%*7: XB%=224: YB%=160: XE%=287: YE%=160: 
GOSDB 630 

9790 A5%=12: INT1%=96: XB%=225: YB%=161: XE%=286: YE%=161: 
GOSUB 630 

9800 w A5%=l2: INT1%=24: XB%=226: YB%=162: XE%=285: YE%=162: 
GOSDB 630 

9810 A5%=12: INT1%»7: XB%=232: YB%=168: XE%=279: YE%=168: 
GOSOB 630 

9820 A5%=12: INT1%=96: XB%=233: YB%=169: XE%=278: YE%=469: 
GOSDB 630 

9830 A5%=12: INT1%=2'4: XB%=234: YB%=170 : XE%=277: YE%=170: 
GOSDB 630 

9840 A5%=12: INTl%=7s XB%=240: YB%=176 : XE%=271: YE%=176: 
GOSDB 630 

9850 A5%*12: INT1%=96: XB%=241: YB%=177: XE%=270: YE%=177: 
GOSDB 630 

9860 A5%=12: INT1%=24: XB%=242: YB%=178: XE%=269: YE%*L78: 
GOSDB 630 

9870 A5%=12: INT1%=7: XB%=248: YB%=184: XE%=263: YE%=184: 
GOSDB 630 

9890 A5%=12: INT1%=96: XB%=249: YB%=185: XE%=262: YE%=185: 
GOSDB 630 

9900 A5%=12: INT1%=24: XB%=250: YB%=186: XE%=261: YE%=186: 
GOSDB 630 

9910 A5%»3: INT1%=7: XB%=255: YB%=192: XE%=256: YE%=192: 
GOSDB 630 

9920 A5%=3: INT1%=7: XB%=255: YB%=420: XE%=256: YE%=420: 
GOSDB 630 

9930 A5%=12: INT1%.=7: XB%=250: YB%=426: XE%-261: YE%=426: 
GOSDB 630 

9940 A5%=12: INT1%=96: XB%=249 : YB%=427: XE%=262: YE%=427: 
GOSDB 630 

9950 A5%=12: INT1%=24: . XB%=248: YB%=428: XE%=263 : YE%=428: 
GOSDB 630 

9960 A5%=12: INT1%=7: XB%=242: YB%=434: XE%=269: YE%»434: 
GOSDB 630 

9970 A5%=12: INT1%=96: XB%=241« YB%=435: XE%=270: YE%=435: 
GOSDB 630 
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9980 A5%=12: INT1%=24: XB%=240: YB%=436: XE%=271: YE%=436- 
GOSUB 630 

9990 A5%=12: INT1%=7: XB%=234: YB%=442: XE%=277: YE%M42: 
GOSOB 630 

10000 A5%=12: INT1%=96: XB%=233: YB%=443: XE%=278: YE%=443: 
GOSOB 630 

10010 A5%=12: INT1%=24: XB%=232: YB%=444: XE%=279: YE%=444- 
GOSOB 630 

10020 A5%=12: INT1%=7: XB%=226: YB%=450: XE%=285: YE%=450: 
GOSOB 630 

10030 A5%=12: INT1%=96: XB%=225: YB%=451; XE%=286: YE%=451: 
GOSOB 630 

10040 A5%=12: INT1%=24: XB%=224: YB%=452: XE%=287: YE%=452: 
GOSOB 630 

10050 A5%=12: INT1%=7: XB%=218: YB%=458: XE%=293: YE%=458: 
GOSOB 630 

10060 A5%=12: INT1%*96: XB%=217: YB%=459: XE%=294: YE%=459: 
GOSUB 630 

10070 A5%=12: INTl%=24t XB%=216: YB%=460: XE%=295: YE%=460: 
GOSUB 630 

10080 A5%=12: INT1%=7: XB%=210: YB%=466: XE%=301: YE%-466: 
GOSUB 630 

10090 A5%=12: INT1%=96: XB%=209: YB%=467: XE%=302: YE%=467: 
GOSUB 630 

11000 A5%=l-2: INT1%=24: XB%=208: YB%=468: XE%=303: YE%=468: 
GOSUB 630 

11010 A5%=12: INT1%=7: XB%=202: YB%=474: XE%=309: YE%=474: 
GOSUB 630 

11020 A5%=12: INT1%=96: XB%*201: YB%=475: XE%=310: YE%=475: 
GOSUB 630 

11030 A5%=12: INT1%=24: XB%=200: YB%=476: XE%=311: YE%=476: 
GOSUB 630 

11040 A5%=12: INT1% = 7: XB%=194: YB%=482: XE%=317: YE%M82: 
GOSUB 630 

11050 A5%=12: INT1%=96: XB%*193: YB%=483: XE%=318: YE%=483s 
GOSUB 630 

11059 A5%=12: INT1%=24: XB%=192: YB%=484: XE%=319: YE%=484: 
GOSUB. 630 

11060 A5%=3: INT1%=24: XB%=248: YB%=248: XE%=263: YE%=263: 
GOSUB 630 

11061 RETURN 

11062 ' ******************************************************** 
11070 A5%=3: INT1%=7: XB%=0: YB%=0: XE%=511: YE%=256 
GOSUB 630 

11080 A5%=3: INT1%=96: XB%=0: YB%=256: XE%=511: YE%=511 
GOSUB 630 

11090 A5%=3: INT1%=24: XB%=256: YB%=128: XE%=352: YE%=256 
<30SUB 630 

12000 A5%=3: INT1%=16: XB%=352: YB%=128: XE%=432: YE%=256 
GOSUB 630 

12010 A5%=12: INT1%=0: XB%=256: YB%=256: XE%=296: YE%=296 
GOSUB 630 

12020 A5%=12: INT1%=0: XB%=256: YB%=255: XE%=296: YE%=295 
GOSUB 630 - ' 

12030 A5%=12: INT1%=0: XB%»256: YB%=257: XE%=296: YE%=297 
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GOSDB 630 

iHZiH «o 5%=12: INT1%=0: XB%=296: YB%=296: XE%=392: YE%=296i 
GOSUB 630 

GOSDB 630 5%=!l2! INT1%= ° S XB%=2 96: YB%=295: XE%=392: XB%-295i 

GOSDB 630 5%=12: INT1%= ° ! »*-29«: YB%=397: XE%=392: ¥£4=297, 

GOSDB 630 5%=12J INT1%=0t ™- 3 «* YB%=296: XE%=352: YE%=256: 

GOSUB 6 3 S 5%=12; INTl%?0t XB% = 3 92' YB%=295: XE%=352: YE%=255 ! 

GOSDB 630 5%=12S INT1%=0: XB% = 392 : YB%=297: XE%=352: YE%=257; 

GOsSb 63S 5%Sl2S INT1%=0: XB *=256: YB%=256: XE%«352: YE%»256: 

GOSDB 630 5%Bl2! INT1%SS ° : XB%=256: YB%=255: XE%=352: YE%=255: 

GOSDB 630 5%Sl2S INT1%=0: XB%=256: YB%=257: XE%=352: YE%=257i 

GOSDB 630 5%Sl2! INT1%S0: XB*=256: YB%=128: XE%=256: YE%=256: 

lllH £ A5%=12: INT1%=0: XB%=256: YB%=127: XE%=256: YE%=255i 

™2«2 *,£ 5%=12: INT1 *=0s XB%=256: YB%=129: XE%=256: YE%=257: 

GOSUB 630 

GOSDB 630 5%=12S INTl%!s0: XB %=256: YB%=128: XE%=432: YE%=128i 

Hili c^ 5%sl2: INT1%=0s XB%=256: YB%=127: XE%=432: YE%«127! 

GOSUB 630 

ii2J2 ^ 5%=12s INT1 *?0: XB%«256; YB%=129: XE%=432: YE%*129i 

GOSUB 630 

Ulli co« 5%sl2! INT1%=0: XB%=352: YB%=128: XE%*352: YE%=256i 

GOSUB 630 

GOSDB 630 5%SSl2! INT1%s0: XB%S 352: YB%«127: XE%-352: YE%«255, 

lilll *,a 5%b12s INT1%S ° J XB%-352: YB%=129: XE%=352: YE%=257i 
GOSUB 630 

Ji£™ e ,i 5% " 12s INT1%=0: XB%=392: YB%=296: XE%=432: YE%=256: 
GOSUB 630 

GOSDB 630 5%=12: INT1%=0: XB %=392: YB%=295: XE%=432: YE%=255: 

ii2?° «« 5% " 12: INT1%=0: XB%-392: YB%=297: XE%=432: YE%=257: 
GOSUB 630 

GOSDB 630 5%=12; INT1%=0t XB%=43 2: YB%=256: XE%=432: YE%=128i 

^2*2 .,i 5%=12s INT1 *=°- . XB%=432: YB%=255: XE%=432: YE%=127) 

GOSUB 630 

GOSDB 630 5%=12: INT1%=0: XB% = 43 2: YB%=257: XE%=432: YE%=12gi 

i!2™ «i 5%=12: I NT1%=127: XB%=12: YB%=480: XE%=12: YB%»496i 

GOSUB 630 

Hill *,2 5%al2: INT1% = 12 7: XB%=12: YB%=496: XE%=16: YE%=500; 
GOSUB 630 

"222 *„; 5%=12s I NT1%=127: XB%=16: YB%=500: XE%=32: YE%=500i 

GOSUB 630 ' 



FIG. 11M LD.ASC 



15010 


A5%=12: 


INT1%=127: 


XB%=32: 


GOSUB 


630 






15020 


A5%=12: 


INT1%=127: 


XB%=36: 


GOSUB 


630 






15030 


A5%=12: 


INT1%=127: 


XB%=36: 


GOSDB 


630 






15040 


A5%=12: 


INT1%=127: 


XB%=32: 


GOSUB 


630 




15050 


A5%=12: 


INT1%=127: 


XB%=16: 


GOSUB 


630 






15060 


A5%=12: 


INT1%=127: 


XB%=6 : 


GOSUB 


630 




15070 


A5%=12: 


INT1%=127: 


XB%=6 • 


GOSUB 


630 




15080 


A5%=12: 


INT1%=127: 


XB%=12: 


GOSUB 


630 




15090 


A5%=12 : 




YR 9t — £ • 
AO ?-JD ♦ 


GOSUB 


630 




16000 


A5%=12: 


INT1%=127: 


XB%=42: 


GOSUB 


630 






16010 


A5%=12: 


INT1%=127: 


XB%=36: 


GOSUB 


630 






16020 


A5%=12: 


INT1%=127: 


XB%=12: 


GOSUB 


630 






16030 


A5%=12: 


INT1%=127: 


XB%=42: 


GOSUB 


630 




16031 


RETURN 






16032 


************************** 


40000 


END 







YB%=500: 


XB%=36: 


YE%=496: 


YB%=496: 


XE%=36: 


YE%=480: 


YB%=480: 


XE%=32: 


YE%=476j 


YB%=476: 


XE%=16: 


YE%=476: 


YB%=476: 


XE%=12 : 


YE%=480- 


YB%=476: 


XE%=12: 


YE%=480 


YB%=500: 


XE%=12: 


YE%=496 


A O w J V U • 




YE % =3 00 


YB%=506: 


XE%=32: 


YE%=500 


YB%=500: 


XE%=36: 


YE%=496 


YB%=470: 


XE%=32: 


YE%=476 


YB%=470: 


XE%=16: 


YE%=476 


YB%=476: 


XE%*36: 


YE%=480 



********** ******************** 
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10 
20 
30 
40 
50 
60 
70 
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100 



LPRINT "FTR2.ASC '8/15/84 
1 PREFILTER THE DATABASE IMAGE 

OPEN "R", #1, "PRESENT. BIN". 128 

FIELD 1,128 AS IA$ 
•SET UP INTEGETER CONSTANTS FOR SPEED 
Kl=l/256 
K2=l/8 
K3=l/32 
RC1=0 
F5%=66 



REV. 8/22/4 09 :30" 



FILTERED" ;F5% 



' INITIALIZE TO ZERO 

1 INPUT "NUMBER OF LINES TO BE 



110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 

GOTO 130 
260 
270 
280 
• 290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



INPUT "ENABLE SMOOTHING PRINTOUTS; ' Y' OR 'N ,w ; A15$ 
INPUT "ENABLE STORING PRINTOUTS ; 1 Y' OR 'N'"; A16$ 
"SELECT FIXED WEIGHTS" 
" SELECT STANDARD WEIGHTS; 
"N" THEN 680 



PRINT 
INPUT 
IF Al$ 

PRINT: PRINT 
PRINT " SELECT" 
PRINT 
PRINT 
PRINT 
Al%=3 



•Y' OR 'N ,w ; Al$ 



"2 
"4 
"2 



1 
4 
8 
4 



2", 
4", 
2" 



"4 
"6 
"4 



2 ", 
6 4", 
8 6", 
4% 



" 3 " : 
"8 8 8"' 
"8 8 8" 
w 8 8 8" 
'l'r '2', 



PRINT 



OR '3'";A1% 



'PRINT: INPUT "SELECT WEIGHTS 
ON Al% GOTO 260, 290, 320 
PRINT "**************************» 

PRINT " IMPROPER WEIGHT SELECTION, MAKE ANOTHER SELECTION" 
PRINT "**************************». print: PRINT: PRINT: 



Wl% = 
W4% = 
W7% = 
Wl% = 
W4% = 
W7% = 
Wl% = 
W4% = 
W7% = 
PRINT 
INPUT 
INPUT 
INPUT 



2: W2% 
4: W5% 
2: W8% 
4: W2% 
6; W5% 
4: W8% 
8: W2% 
8: W5% 
8: W8% 
PRINT 



4: W3% 

8: W6% 

4: W9% 

6: W3% 

8: W6% 

6: W9% 

8 : W3% 

8: W6% 

8: W9% 



2 
4 

2: GOTO 390 

4 

6 

4: GOTO 390 

8 

8 

8: GOTO 390 



'WEIGHT KERNEL 1 



'WEIGHT KERNEL 2 



'WEIGHT KERNEL 3 



"INPUT FIXED WEIGHTS" 



"INPUT WEIGHTS; Wl, W2, W3"; Wl%, W2%, W3% 
"INPUT WEIGHTS; W4, W5, W6"; W4%, W5%, W6% 
"INPUT WEIGHTS; W7, W8, W9"; W7%, W8%, W9% 



Wl= n ;Wl%, "W2=";W2%, "W3=";W3% 



WTS 1 % =W1 % +W2 % +W3 % +W4 % +W5 % +W6 % +W7 % +W8 % +W9 % 
SCALE FACTOR 
400 WTS2=1/WTS1% 
WEIGHT SCALE FACTOR 

410 PRINT: PRINT ," WEIGHTS SELECTED": PRINT 

420 ~ 

430 
440 
450 
460 
46.5 
470 
480 
490 
500 



•WEIGHT 



RECIPROCAL 



r 

,"W4=";W4%, "W5=";W5%", "W6=";W6% 
"W7=";W7%, "W8=";W8%, n W9= n ;W9%, "WTS1=" ;WTS1%: PRINT 



PRINT 
PRINT 
PRINT 

WRR2% = 0: WRG2% = 0: WRB2%'= 0: S1%=0? S2% 
FOR KRLP1% = 1 TO F5% 'KERNEL ROW LOOP 
IF KRLP1% > 1 THEN TST$="Y" ELSE TST$="N" 
LPRINT "START KERNEL ROW=" ; KRLP1% 
FOR KPLP1% e 1 TO 512 ' KERNEL PIXEL LOOP ' 
GOSUB 1820 'TERMINAL INPUT 

XB% = KPLP1%: YB% = KRLP1% 
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510 XEI * XB% + 2: YE% » YB% ♦ 2 

MO oS? SSo 1 * ■ ™ T ° *» 'LINE LOOP 

590 GOSDB 1820 

6?S ??2°2«2i 80 ' DEFINE RECORD NO. 

62? 2 lilt " T THEN PRINT "ODTLPli »,OUTLPl% 

620 «ip TST$ = "Y" THEN PRINT "RC "tPr ' UUAljJ? " 

0° S i R | c >r «> «< "« ™ i?S ELSE 710 

IfS "iS*;;- ™- -- 4 »- LINES OO P R 0M „« 

Hi SS^' ysr-^iff jss p ™ ™* » — « 

700 GOTO 860 

710 IP RC < 5 THEN 720 ELSE 790 

720 'GET RECORD PROM PREVIOUS FILE 
730 CLOSE #1 

740 OPEN "R",#l, "PRIOR.BIN", 128 

750 FIELD 1,128 AS IA$ 

™ ££252^" :55 s jpk be open por INNER "»* 

780 GOTO 860 .55 2L£° ^ LINE IN PRI °* PILE 

790 ' ELSE ® RECORD FROM FILE 

800 'GET RECORD PROM NEXT FILE 
810 CLOSE #1 

820 OPEN "R",#l, "NEXT. BIN", 128 

830 FIELD 1,128 AS IA$ 

mo SSK-iso" 1 " : u? BE open por INNER •"»* 

860 GET #1 RC SET RC T ° FIRST LINE IN NEXT ' FILE 

880 ODT 236^1^ ODT B 236?0 XE% S * EP * 

900 J, A15 $ =S? EC ^ R gS fsTo STARTING ADDRESS 

920 t! iJffSJ! " XB% > M ((XB% M0D 2 ) - 0) THEN DC-BDC-1 

, x I.Z'&T 2) <> »» ™^ - m 

III * K% P = C CTmsi«" ° THEM K " 0 ' 0010 1220 

960 PIXA% » K% AND 255 : • GET FIRST BYTE 

111 .',1*% ^ K% * K1 ! '<»* SECOND BYTE 

*ND 96,.^ G2% " PI]tB% **> ?! »■> «)*K2= RDB2%=<PKB% 

iND^S).^"'" 5 ** ***> " RD «»-<PIXA% AND 24).K2, RDB1%« (PIXA% 
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1030 'X OUT 236,16: OUT 236,0 



1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 



S3%=0UTLP1%-YB%+1: ON S3% GOTO 1060, 1070, 1080 
LPRINT "ERROR AT LINE 1610 
WS1%=W1%: WS2%=W2%: WS3%=W3%: GOTO 1090 
WS1%=W4%: WS2%=W5%: WS3%=W6%: GOTO 1090 
WS1%=W7%: WS2%*W8%: WS3%=W9% 
'X OUT 236,16: OUT 236,0 
IP S1%=0 THEN il40 

WRR2% 
WRG2% 

WRB2%: GOTO 1170 

RDR2%*WS2% + WRR2% 
RDG2%*WS2% + WRG2% 



WRR2% - RDR1%*WS3% 
WRG2% = RDG1%*WS3% 
WRB2% = RDB1%*WS3% 
WRR2% = RDR1%*WS1% 
WRG2% « RDG1%*WS1% 
WRB2% a RDB1%*WS1% 



1170 'X OUT 236,16: ODT 236,0 



RDB2%*WS2% + WRB2%: S1%=1 



1180 
1190 



RECORD COUNT 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 



DC=DC+2: IP DC>=128 THEN 1190 ELSE 1200 * UPDATE DATA COUNT 
DC-It RC=RC + 1: GET #1,RC ' CONDITIONALLY UPDATE 



1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350' 

1360" 

1370' 

1380' 

1390 

1400 

1410 



NEXT INLP1% 
S1%=0 

NEXT OUTLPl% 
OUT 236,16 
IF S2%>0 THEN 1280 
S2%=1 

WRR1%=WRR2%*WTS2: WRG1%=WRG2%*WTS2 : WRB1%=WRB2%*WTS2 
IF A15$="Y" THEN GOSUB 1270: GOTO 1310 
WRR2%=WRR2%*WTS2: WRG2%=WRG2%*WTS2 : WRB2%=WRB2%*WTS2 
IF A15$="Y" THEN GOSUB 2000 
S2%=0: GOSUB 1410 ' STORE 

WRR2%=0: WRG2%=0 : WRB2%=0 
OUT 236,0 
NEXT KPLP1% 
NEXT KRLP1% 
CLOSE #1 

OPEN M R", #2, "FILTERED, BIN", 128 

FIELD 2,128 AS IB$ 

PUT #2,RC1 

CLOSE 

SYSTEM 



1420 
1430 
1440 
1450 
1.460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 



CODE TO PUT NEW BYTES TO SPECIFIED WRITE FILE 

THE NEW BYTES SHOULD BE IN THE WRITE VARIABLES 

CLOSE READ FILE AND OPEN WRITE FILE 

CALCULATIONS FOR EXACT PIXEL LOCATION 
XX=XB%: YY=YB% 

X = (XX/128) : ' FIND PIXEL COORDINATE FOR RECORD LOCATION 
BDC = XX: IF BDC <»128 THEN 1550 • MODULO 128 

Sm-uSi"^^ i 53 S' PIND BEGIra,ING DAT » C0WI » «»» 

DC 2 =BDC 
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1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1645 

1650 

1660 

1665 

1670 

16Q0 - 

1690 

1700 

17i0 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1795 

1796 

1797 

1798 

1799 

1800 

1810 

1820 

• ***** 

1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 



•GET RECORD NO. 



0UTLP1%=YY 
GOSUB 2180 
'RC0=RC 

•IF TST$ = "Y" THEN PRINT "RC1, RCO ";RC1,RC0 
'IP RC1 = RCO THEN 1710 
CLOSE #1 

OPEN "R", #2, "FILTERED. BIN", 128 
FIELD 2,128 AS IB$ 
'IF RC1=0 THEN 1660 
' IB$=IB2$ 

'PUT #2,RC1: 'PRINT "EXECUTED POT ";CVI(IBS> 
GET #2,RC *\i»9> 

•IB2$=IB$ 
'RC1 = RCO 
'CLOSE #2 

•OPEN "R",#l, "PRESENT. BIN" ,128 
'FIELD 1,128 AS IA$ 
' PACK RED, GREEN, BLUE COLORS INTO THEIR RESPECTIVE BYTES 
WR1% = WRG1% OR 8 * WRR1% 

* WRB1% 

* WRR2% 

* WRB2%* 
' PACK 2 BYTES INTO 1 WORD 



N3 
A$ 



WR1% = WR1% OR 32 
WR2% = WRG2% OR 8 
WR2% = WR2% OR 32 
(WR2%*256.) OR WR1% 
MKI$(N3) 



'PRINT n N3 ";N3 
MID$(IB$,DC2,2)=A$ 
'PRINT "A$ ";CVI(A$) 
POT #2,RC 
CLOSE #2 

OPEN "R",#l, "PRESENT. BIN", 128 

FIELD 1,128 AS IA$ 

RETURN 

'SUBROUTINE TO INTERROGATE TERMINAL 
A7%=INP (93) : A8%=INP (92) 

A7%=A7% AND 2: IF A7%=0.THEN 1940 'DATA READY TEST 

A8%=A8% AND 127 ~ .^sk PARITY bit 

CLOSE 8 #l X ° R S IF A9%= ° THEN 1930 ELSE 1940 ' DELETE TO CP/M 

OPEN "R", #2, "FILTERED. BIN", 128 
FIELD 2,128 AS IB$ 
PUT #2,RC1 
CLOSE 

. SYSTEM 
RETURN 



1950 

I960 ******** 

1970 LPRINT: LPRINT: LPRINT "LINE 342": GOTO 2030 

1980 ******** 

J?Aft L *RINT: LPRINT: LPRINT "LINE 1265": GOTO 2030 

2010 LPRINT: LPRINT: LPRINT "LINE 2025"? : GOTO 2030 
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202Q ******** 

2030 LPRINT n KRLPl= n jKRLPl%, "KPLP1=" j KPLP1% , 
"0UTLP1=";0UTLP1%, "INLPl="i INLP1% 

2040 LPRINT n XB= n ;XB%, B YB= n jYB%, "XE=";XE%, "YE=";YE% 

2050 LPRINT "DC=";DC, "RC=";RC, n Sl=»;Sl%, "S2=";S2%, "S3=";S3% 

2060 LPRINT M RDG1=";RDG1%, "RDRl= n ;RDRl% / ™RDB1=" ;RDB1% 

5222 LPRINT W RDG2=";RDG2%, "RDR2=»;RDR2%, "RDB2= n ;RDB2% 

2080 LPRINT °WRG1=";WRG1%, "WRR1=" ;WRR1% , "WRBl=" ;WRB1% 

2090 LPRINT "WRG2=" ?WRG2% , "WRR2=";WRR2%, "WRB2=" ;WRB2% 

2100 LPRINT n WSl=";WSl%, "WS2=" ;WS2% , ■ "WS3=" ?WS3% 

2110 RETURN 

2120 

2130 LPRINT : LPRINT : LPRINT "LINE 236" 

2140 LPRINT "W1=";W1%, "W2*" ;W2%, "W3=";W3% 

2150 LPRINT "W4=";W4%, "W5=";W5%, "W6=";W6% 

2160 LPRINT "W7=";W7%, "W8«";W8%, "W9= ,, ;W9% : RETURN 

2170 

2180 • DEFINE RECORD NO. 

2190 RC = ( (0UTLP1%-1)*4)+1 ' 4 -RECORDS /LINE , RECORD— 

1 TO RECORD- 4 

2200 IP (X>1) AND (X<=2) THEN RC=RC+1 ' CHECK FOR PIXEL 
OVERFLOWING A RECORD 

2210 IF (X>2) AND (X<=3) THEN RC=RC+2 

2220 IF (X>3) THEN RC=RC+3 

2230 RETURN 

2240 END 
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200 



PRINT: PRINT: PRINT "PILE: DIS.ASC, REV. 10/7/4 19:00" 



240 CLEAR ANN0 ^ ATI0NS DELETED UNNECESSARY MATERIAL 

260 INPUT "MURPHY (M) OR CAMILLE (C)"»K2$ 1 SELECT SYSTEM CONPIGDRaf 

loo HIT PRINT BJ0YSTICK BIAS VALDES " 'calibSa?e SSbSSS 

340 Sl A A% 2 T ° 8 STEP 2i B%SsA% - 2! 0UT 236 ' B% * C%=INP (237): GOSUB 44 

360 IP K2$="C" THEN 400 

380 A8%=INP (1): GOTO 420 'KEYBOARD EXIT OP 

JOYSTICK CALIBRATE **t L QV 

400 A8%=INP (93) 

420 A8%*A8% AND 2: IP A8%=0 THEN 320 ELSE 660 

440 '********************************************************** . 

460 _ t 1 SUBROUTINE TO ACQUIRE JOYSTICK VALUES 

480 D%=A%/2: ON D% GOTO 500,520,540,380 

JJJ PRINT "SCALE=";C%>: BS5%«C%: GOTO 620 

f *2 PRINT "X=" ;C%,: BX5%*C%: GOTO 620 

5f0 PRINT "ANGLE=";C%,: BA5%=C%: GOTO 620 

580 PRINT "Y=" ;C% :BY5%*C% 

600 PRINT CHR$(11) ; 

620 RETURN 

640 *********************************************************** 

660 • PRINT: PR1%=1: PR2%=1: PR5%=128: DB1%=15 

680 PR7$="N" 'INPUT "PRINTOUT? 'Y' OR , N , ":PR7$ 

FKLDS; •?? $ ;r Y "n'";PR9$' INPI,T " 0M ™ M FIEL °' N ° T *"™»« 

J?X I*" " 'INPUT "CLEAR REMAINDERS; «Y' OR 'N'"; PR10$ 

740 PR11$ = «Y" * INPUT "SLOPE USING C INT ROUNDOFF; 'Y' OR »N'"-PR 

iSSmL.SSS.SS" PACT0R ' MiX ' - 1 TO l500 ' "' 60 ° IS 

780 IP PR12=0 OR PR13*0 THEN 800 ELSE 820 

800 PR12-10: PR13-600 

ONCE EACH^PRAME = " ^" G0T0 ' INTERPOLATE ONCE EACH FIELD OR 

fJJ TSl=l/4: GOTO 880 'NUMBER OP TIME SLICES 

860 TSl=l/8 

880 INPUT "NEW WINDOW GEOMETRY: 'Y' OR 'N'";PR32$ 

2S?„o T P ^ $= " Fn ' INPUT "INTEGER (I) OR NON- INTEGER (P) 
TRANSLATION" ;PR1 6$ • - 

920 IP PR32$="Y" GOTO 960 

940 PRINT : INPUT "OFFSET CENTER OF ROTATION: TX,TY" ;TX,TY: GOTO 980 

960 PRINT: INPUT "OFFSET CENTER OP IMAGE: XI, Yl" ;X1 Yl 

inSn S5iJ* 2 L« ' PRINT : INPUT "DEADBAND SELECTION ; 20 IS NOMINAL" ;DB 

SCOPES, ? R OR $ ^;PR21 $ PRINTS ^ WpRACTI0NAL INIT ^ AND 

1020 DR=.017453292#: RD=57. 29577951000028* 

X5V=512: Y5V=482 'VIEWPORT DIMENSIONS 

1080 V^-^ PT v?t V JS R PIXEL S™' (54 US) (9 * 15 m > < 16 / 18 CLOCK WIDTH 

J"?X; X 5 I=512 « Y5I=512 'IMAGE MEMORY DIMENSIONS IN PIXELS 

1100 'A R1=SQR(X5V~2+Y5V~2) 'UNITS OF PIXELS 

1120 'A AP1*ATN(Y5V/X5V) 

1140 'A A6=ATN(X5V/Y5V) : AP1=90*DR-A6 

EIGHTH PIXELS X5I * 8S KS2%=Y51 * 8 1 IMAGE- MEMORY DIMENSIONS IN 
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1180 Q2=(Y5V/2)-TY: Q3= (X5V/2) +TX 

1200 IP PR32$="Y n GOTO 1260 

1220 AP1=ATN(Q2/Q3) : R1=2*SQR(Q2~2+Q3~2) 

1280 DSll-ls JSSI-128 

mo SnilS-r- oo^Sm** ASPECT mti ° 

»W,l/(SwSy ' YS " 256! ««»M3.90«2SW3). 

1400 KSAR-O: KCAR-ls XSSV=XS*XSVR: GOTO 1460 
1420 XS*256*XSV : YS-256: YSS»i 
1440 KSAR=0: KCAR=1: XSSV=1 

1460 FOR E%=1 TO 16: GOSUB 2220: NEXT Eft •tmtwt&t 
CONDITION GENERATION INITIAL 

ON^VERT * SYNC=1 ^ * S%= * % *** 1? " S%Bl THEN 1480 '^KUP 

3"f22 ., R 2"' INP < 236 > J s%a R* AND 16: IP S%=0 THEN 1480 'CHECK fifth 
1520 ITERATIVE PROCESSING CHECK FIELD 

1540 OUT 236,64 

}lt« '^SYNCHRONIZATION AND FIELD CONTROL PROCESSOR 

1580 R%«INP (236) : S%=R% AND 1 ° K 

1600 IF S %=0 THEN 1580 • LOCKUP ON VERT.SYNC-0 

"20 INTERLACED SCAN CALCULATIONS 

jf jjj ; iNPDT BYTE 128 064 032 016 008 004 002 001 

1720 ' FIELD- 2 

1740 • OUTPUT POSITION PARAMETERS 

lllci 2™ III' lit* 0DT 237 ' CA2%: 0DT 236,128: 

1800 2£ ??!' 0UT 237 ' CB2%: OUT 236,128: 

1020 2Z 2«' JiJ* 0UT 237 ' CC2%S 0DT 236,128: 

"IS GOTO°?980 38f 24?S 23? ' CD2%$ ° UT 236 ' 128 ' 

I860 ' FIELD- 1 

1880 'OUTPUT POSITION PARAMETERS 

22! III' 249s 0DT 237 ' CA1%S 236,128: 
1920 OUT 238, 250: OUT 237, CB1%: OUT 236,128: 

1940 OUT 238, 246: OUT 237, CC1%: OUT 236,128: 

TmS ,~° DT 233 ' 247 5 OUT .237, CD1%: OUT 236,128: 

1980 'OUTPUT SLOPE PARAMETERS 

2 X-PIXEL SLo2e T MSH 8 ' 242S '° W 23? ' XPM%: °° T 236 ' 128 ' °° T 236 '° 
2 Y^IXEL SLOPED 8 ' 245 *' ° UT 23? ' YPM%: 0DT "6 f 128, OOf 236,0 
•2-ROW SLOPE°SsH 238 ' 248S 237 ' XRM%: 0DT 236 ' 128S ° DT 236 '° 

2 5-ROW SLOPE°SsH 238f251S 23? ' XRM%5 ° 0T 236 ' 128S ° 0T 236 '° 

2 X-PIXEL SLOp1 T LSH 8r243S 237 ' XPL%} °° T 236 ' 12Bl °° T 236 '° 



OUT 


236,0 


' Y-ROW 


MSI 


OUT 


236,0 


'Y-ROW 


LSI 


OUT 


236,0 


' X-ROW 


MSI 


OUT 


236,0 


'X-ROW 


LSI 


OUT 


236,0 


'Y-ROW 


MSI 


OUT 


236,0 


'Y-ROW 


LSI 


OUT 


236,0 


•x- 


■ROW 


MS) 


OUT 


236,0 


' X-ROW 


LSI 
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2100 OUT 238,244: OUT 

'Y-PIXEL SLOPE LSH 
2120 OUT 238,240; OUT 

•X-ROW SLOPE LSH 
2140 OUT 238,241: OUT 

'Y-ROW SLOPE LSH 
2160 OUT 236,80 'COMMAND 
COMPUTATION PERIOD 



237,YPL%: OUT 236,128: OUT 236,0 
237,XRL%: OUT 236,128: OUT 236,0 
237,YRL%: OUT 236,128: OUT 236,0 
RUN, LOAD-BAR ?PULSE-1 BRACKETING 



2180 
2200 
2220 
2240 
2260 
3540 
2280 
2300 
2320 
2340 



GOSUB 2220 
GOTO 1520 



'PROCESSING FOLLOWS OUTPUT 

'LOOP BACK FOR NEXT FIELD 

til **f; BR0DT *NE FOR INTERFIELD PROCESSING 

™ »ff % oL ' INCREMENT TIME SLICE COUNTER 

ON F6% GOTO 4000, 4640, 4800, 2280, 2820, 3360, 3440, 



GOSUB 5220: GOSUB 5840 ' INTERPOLATE "v . ■•- 

' CALCULATE INITIAL POINT 

Rl*8*COS (A5%f )f cXC1+TX - KP6 - KF4 'EQUIVALENT TO X»1H%-XC1- 

2360 ' IF XIP1N%<0 THEN 5180 ELSE 5220 

XIP1N%=XIP1N%+KS1%: GOTO 5300 'WRAP AROUND 
IF XIP1N%>KS1% THEN 5260 ELSE 5300 AROUND 

XIP1N%=XIP1N%-KS1% 
YIP1N%=YCH-TY+KF7-KF5 'EQUIVALENT TO YPI1%=YC1-R1*8*SIN (A5%1 /2 
IF YIP1N%<0 THEN 5380 ELSE 5420 biNiA5%)/2 

YIP1N%=YIP1N%+KS2%: GOTO 5500 'WRAP-AROUND 
IF YIP1N%>KS2% THEN 5460 ELSE 5500 AROUND 
YIP1N%=YIP1N%-KS2% 
SpX%-YIp2%-25! ' BUFPER " B,WMr WITH ANTI-ALIASING 

l/2M8/256H?/6f PlN%+XRN%M *° 15625) ,XIp l-SF=8, XR%-SF=256; 
2600 YIP2N%=YIP1N%+YRN%* (.015625) 

2620 'JOYSTICK PROCESSOR; MUST OCCUR MORE THAN 100- 
MICROSECONDS AFTER FRAME SYNC GOES LOW 

2640 OUT 236,66: JSXV%=INP (237); OUT 236,68: JSA%«INP f237* 
2660 OUT 236,70; JSYV%=INP (237 : OUT 236 64 m'-Sp 237) 
JSA^%-JSM^5? SXV% " BX5%? JSYB%BJ SYV%-BY5%: jisBWSS%-BS5% : ?> 



2380 
2400 
2420 
2440 
2460 
2480 
2500 
2520 
2540 
2560 
2580 



OUT 236, 



2700 
2720 
2740 
2760 
2780 
STICK 
2800 
2820 
2840 
2860 
2880 
2900 
2920 
2940 
2960 
2980 



•CHECK IF IN DEADBAND 
'BIAS OUT DEADBAND 



•SQUARE LAW JOY 



IF ABS(JSAB%)<DB1% THEN 2800 

IF JSAB%<0 THEN 2740 ELSE 2760 
JSAB%=JSAB%+DB1%: GOTO 2780 
JSAB%=JSAB%-DB1% 
AR= AR+ JSAB% * ABS (JSAB%) * ( .00003) 
SCALING 
RETURN 

IF PR9$="N" GOTO 2880 

„ ne , n . 4 GOSUB 5220: GOSUB 5840 'INTERPOLATION 

?2 S S,J! 8 2 « ' KEYBOARD INPUT ROUTINE 

IF PR10$= n N" THEN 2960 

SDXIP1R%=0: SDYIP1R%=0: SDXIP2R%=0: SDYIP2R%=0 
SDXPR%«0: SDYPR%=0: SDXRR%=0; SDYRR%*0 
DXIP1%- (XIP1N%-XIP1P%) s DYIP1%«(YIP1N%-YIP1P%) 
DXIP2%=(XIP2N%-XIP2P%): DYIP2%» (YIP2N%-YIP2P%) 
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3000 
3020 
3040 
3060 
3080 
3100 
3120 
3140 
3160 
3180 
3200 
3220 
3240 
3260 
3280 
3300 
3320 
3340 
3360 
3380 
3400 
3420 
3440 
3460 
3480 
3500 
3520 
3540 



DYP%=(YPN%-YPP%): DXP%= (XPN%-XPP%) 

DYR%= (YRN%-YRP%) : DXR% = (XRN%-XRP%) 

•REMAINDER PROCESSING WORKS FOR + AND t DELTA NUMBERS 
IP PR9$= n Y n GOTO 3180 

DYIP1R%=DYIP1% AND 3 
DYIP2R%=DYIP2% AND 3 
DYPR%=DYP% AND 3 
DYRR%=DYR% AND 3 



DXIP1R%=DXIP1% AND 3 
DXIP2R%=DXIP2% AND 3: 
DXPR%=DXP% AND 3: 
DXRR%=DXR% AND 3: 
GOTO 3260 
DXIP1R%*DXIP1% AND 7: 
DXIP2R%=DXIP2% AND 7: 
DXPR%=DXP% AND 7: 
DXRR%=DXR% AND 7: 
DXIP1%=DXIP1%*TS1: 
DXIP2%=DXIP2%*TS1 : 
DXP%=DXP%*TS1: 
DXR%=DXR%*TS1: 



DYIP1R%=DYIP1% AND 
DYIP2R%=DYIP2% AND 
DYPR%=DYP% AND 7 
DYRR%=DYR% AND 7 
DYIP1%=DYIP1%*TS1. 
DYIP2%=DYIP2%*TS1 
DYP%=DYP%*TS1 
DYR%=DYR%*TS1 



3560 

3580 

PRIOR 

3600 

3620 

3640 

3660 

3680 



RETURN 

GOSUB 5220: GOSUB 5840 ' INTERPOLATE 

KSAR=SIN (AR) 

RETURN 

IF PR9$="N" GOTO 3500 

GOSUB 5220: GOSUB 5840 ' INTERPOLATE 
KCAR=COS (AR) 
RETURN 



'RESET 
GOSUB 5840 



TIME SLICE COUNTER 
• INTERPOLATE , FIRST OPERATION IN 



F6%=0 

GOSUB 5220 
TIME SLICE 

JSYK%=JSYB%*KSAR: JSXK%=JSXB%*KSAR 
JSXB%=JSXB%*KCAR+ JSYK% : JSYB%=JSYB%*KCAR-JSXK% 
UPDATE POSITION; PRECEEDS XIP f YIP PROCESSING 
IF ABS(JSXB%)<DB1% THEN 3980 

IF XC1>30000 AND JSXB%<0 THEN 7420 
TRANSLATION , SCROLLING 

3700 ■ IF XCK-30000 AND JSXB%>0 THEN 7420 

3720 IF XC1>30000 THEN 3740 ELSE 3760 

TRANSLATION, WRAP-AROUND 

XCl=XCl-32760: GOTO 3800 
(512*8) PIXELS* 8 SUBPIXELS-8 SUBPIXELS 



•LIMIT X- 



' LIMIT X- 



3760 
3780 
3800 
3820 
3840 
3860 
3880 
3900 
3920 
3940 
3960 
3980 
4000 



IF 



IF 



IF 



3840 
GOTO 



3860 



'BIAS OUT DEADBAND 



XCK-30000 THEN 3780 ELSE 3800 

XCl=XCl+32760 
JSXB%<0 THEN 3820 ELSE 
JSXB%= JSXB%+DB1% : 
JSXB%=JSXB%-DB1% 
PR16$= M F n THEN 3960 

DX1=DXR1+ JSXB%*ABS ( JSXB% ) * ( . 075 ) 
DXI1=FIX(DX1) 
DXR1=DX1-DXI1 
XC1=XC1-DXI1: GOTO 3980 
RETURN XCl=XCl-JSXB%*ABS(JSXB%)*(.a 7 5) 
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?H T ^ 2 ^'S 5 n 'OUTPUT START PULSE, INCREMENT TIME SLICE COUNTER 

4040 IP PR9$= w N n GOTO 4080 »«*v-*. hunter 

4060 GOSUB 5220: GOSUB 5840 1 INTERPOLATE 

4080 IP ABS(JSYB%)<DB1% THEN 4400 

4100 ' IF YC1>30000 AND JSYB%>0 THEN 7740 'LIMIT Y- 

TRANSLATION, SCROLLING 

4120 ' IP YCK-30000 AND JSYB%<0 THEN 7740 

4140 IP YC1>30000 THEN 4160 ELSE- 4180 1 LIMIT X- 

TRANSLAT I ON , WRAP-AROUND 

4 Jj>0 YCl=YCl-32760: GOTO 4220 

4180 IP YCK-30000 THEN 4200 ELSE 4220 

4200 YCl=YCl+32760 

422 ° IF JSYB%<0 THEN 4240 ELSE 4260 'BIAS OUT DEADBAND 

4240 JSYB%=JSYB%+DB1%: GOTO 4280 

42 60 JSYB%=JSYB%-DB1% 

4280 IF PRl6$="F n THEN 4380 - . . 

4300 DY1=DYR1+JSYB%*ABS(JSYB%)*(.075) 

4320 DYI1=FIX(DY1) 

434 0 DYR1=DY1-DYI1 

4360 YC1=YC1-DYI1: GOTO 4400 

438 2 YC1=YC1+JSYB%*ABS(JSYB%)*(.075) 

4400 . IF ABS(JSSB%)<DB1% THEN 4620 

442( > IP JSSB%<0 THEN 4440 ELSE 4460 

444 J JSSB%=JSSB%+DB1%: GOTO 4480 'BIAS OUT DEADBAND 

44 60 JSSB%*JSSB%-DB1% 

4480 DS11=1+JSSB%*ABS(JSSB%)*(. 00001) 'OFFSET 

BINARY TO SIGN BINARY, SCALE, BIAS ABOUT UNITY 

4500 IP DS1K1 AND XS<PR12 OR DS1K1 AND YS<PR12 THEN 4620 

4520 IP DS11>1 AND XS>PR13 OR DS11>1 AND YS>PR13 THEN 4620 

4540 XS=XS*DS11: YS=YS*DS11 

4560 IP PR32$="Y n GOTO 4600 

4580 YSS=YS*(3.90625E-03) : XSSV=XS*XSVR: GOTO 4620 

4600 KB1=KB1*DS11: KB2=KB2*DS11 

4620 RETURN 

4640 '****************************************************** 

4660 GOSUB 5220: GOSUB 5840 'INTERPOLATE, CALCULATIONS 

PERFORMED IN PRIOR TIME-SLICE 

4680 IP PR32$« , 'Y I, GOTO 4740 

4700 KF6=KB2*KCAR*XSSV: KF7=KB1*KCAR*YSS 

4720 KF4=KB1*KSAR*XSSV: KF5=KB2*KSAR*YSS: GOTO 4780 

4740 KF6=KB2*KCAR: KF7=KB1*KCAR 

4760 KF4*KB1*KSAR: KF5<=KB2*KSAR 

4780 RETURN 

4800 ************************************************************ 

4820 IP PR9$="N" GOTO 4860 

4840 GOSUB 5220: GOSUB 5840 'INTERPOLATE 

4860 IP PR11$= W N'' THEN 4920 

4880 YPN%=CINT(KSAR*XS) : XRN%=CINT (2*KSAR*YS) 
•CALCULATE SLOPES 

4900 YRN%=-CINT(2*KCAR*YS) : XPN%=CINT (KCAR*XS) : GOTO 4960 

4920 YPN%=KSAR*XS: XRN%=2*KSAR*YS 'CALCULATE SLOPES 

4940 YRN%=-2*KCAR*YS: XPN%=KCAR*XS 

4960 RETURN 

4980 ***************************************************** 

5000 IF K2$="C THEN 5040 'KEYBOARD COMMANDS 
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BS5%=JSS%: BX5%=JSXV%: BY5%=JSYV%: BA5%=JSA%: GOTO 



5020 A7%=INP (1): A8%=INP (0): GOTO 5060 
5040 A7%=INP (93): A8%=INP (92) 
5060 A7%=A7% AND 2: IP A7%=0 THEN 5200 
5080 A8%=A8% AND 127 

5100 A9%=A8% XOR 27: IP A9%=0 THEN 240 
5120 A9%*A8% XOR 74: IF A9%=0 THEN 5140 ELSE 
RECALIBRATE JOYSTICKS 
5140 
5200 
5160 
5180 
5200 
5220 
5240 
5260 
5280 
5300 
5320 
5340 
5360 
5380 
5400 
5420 
5440 
5460 
5480 
5500 
5520 
5540 
5560 
5580 
5600 
5620 
5640 
5660 
5680 
5700 
5720 
5740 
5760 
5780 
5800 
5820 
5840 
5850 
5860 
5880 
5900 
CC1%= 
5920 
CC2%= 
5940 
5960 
YPM%< 
5980 



'DATA READY TEST 
'MASK PARITY BIT 
' ESCAPE TO MEND 
5160 ,n J" TO 



IP A9%=0 THEN 5180 ELSE 5200 ' DELETE TO CP/M 



A9%=A8% XOR 127: 

SYSTEM 
RETURN 

*********************** ************************** 
' INTERPOLATION SUBROUTINE-1 
' UPDATE INITIAL POSITIONS AND SLOPES 
•REMAINDER PROCESSING 

SDXIP1R%=SDXIP1R%+DXIP1R% : SDYIP1R%=SDYIP1R%+DYIP1R% 
SDXIP2R%=SDXIP2R%+DXIP2R% : SDYIP2R%=SDYIP2R%+DYIP2R% 
SDXPR%=SDXPR%+DXPR%: SDYPR%=SDYPR%+DYPR% 
SDXRR%=SDXRR%+DXRR%: SDYRR%=SDYRR%+DYRR% 
' INTERPOLATION DELTA UPDATES 
XIPip%=XIPlP%+DXIPl% : YIP1P%=YIP1P%+DYIP1% 
XIP2P%=XIP2P%+DXIP2% : YIP2P%=YIP2P%+DYIP2% 
XPP%=XPP%+DXP%: YPP%=?YPP%+DYP% 
XRP%=XRP%+DXR%: YRP%=YRP%+DYR% 
IP SDXIP1R%<8 THEN 5520 

SDXIPlR%=SDXIPlR%-8: XIP1P%=XIP1P%+1 
IP SDYIP1R%<8 THEN 5560 

SDYIPlR%=SDYIPlR%-8: YIP1P%=YIP1P%+1 
IP SDXIP2R%<8 THEN 5600 

SDXIP2R%=SDXIP2R%-8: XIP2P%-XIP2P%+1 
IF SDYIP2R%<8 THEN 5640 

SDYIP2R%=SDYIP2R%-8 : YIP2P%=YIP2P%+1 
IF SDXPR%<8 THEN 5680 

SDXPR%=SDXPR%-8: XPP%=XPP%+1 
IP SDYPR%<8 THEN 5720 

SDYPR%=SDYPR%-8: YPP%=YPP%+1 
IP SDXRR%<8 THEN 5760 

SDXRR%=SDXRR%-8: 
IP SDYRR%<8 THEN 5800 

SDYRR%=SDYRR%-8: YRP%=YRP%+1 



XRP%=XRP%+1 



RETURN 

'********************* ********************************* 
1 INTERPOLATION SUBROUTINE-2 
' FORMAT INITIAL POINT. OUTPUTS 
IF PR21$= n N" THEN 6020 

CA1%=YIP1P%* (.015625) : CB1%=YIP1P% AND 63: 
=XIP1P%* (. 015625 ) : CD1%=XIP1P% AND 63 

CA2%=YIP2P%* (.015625) : CB2%=YIP2P% AND 63: 
:XIP2P%* (. 015625 ) : CD2%=XIP2P% AND 63 
•FORMAT SLOPE OUTPUTS 

XPM%=XPP%* (.015625): XPL%=XPP% AND 63: 
'YPP%* (.015625) : YPL%=YPP% AND 63 

XRM%=XRP%*(. 015625): XRL%=XRP% AND 63: 
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YRM%=YRP%* (.015625) : YRL%=YRP% AND 63 
6000 GOTO 6140 

6020 'FORMAT IP AND SLOPE AND TRUNCATE TO PIXEL RESOLUTION 

6040 CA1%=YIP1P%*(. 015625): CB1%=YIP1P% AND 56: 

CC1%=XIP1P%* (.015625) : CD1%=XIP1P% AND 56 

6060 CA2%=YIP2P%* (. 015625) : CB2%=YIP2P% AND 56: 

CC2%=XIP2P%* (.015625) : CD2%=XIP2P% AND 56 

6080 XPM%=XPP%* (.015625) AND 60: XPL%=XPP% AND 0: 

YPM%=YPP%* (.015625) AND 60: YPL%=YPP% AND 0 

6100 XRM%=XRP%* (.015625) AND 60: XRL%=XRP% AND 0: 

YRM%=YRP%* (.015625) AND 60: YRL%=YRP% AND 0 

6120 • 

6140 RETURN 

6160 '*************************************************** 
6180 END 



